home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1996 #5 / Amiga Plus Extra 1996 May.iso / editoren / musictex / metafontinput / musicbrh.mf < prev    next >
Text File  |  1996-08-01  |  1KB  |  41 lines
  1. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  2. %
  3. %  this is musicbrg.mf  from Stanislav Kneifl
  4. %
  5. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  6.  
  7. %
  8. % change firstbrace and lastbrace if you need smaller or larger braces
  9. %
  10.  
  11. firstbrace:=20;  % smallest brace is 2*20 pt (\simeq 14mm)
  12. lastbrace:=99;   % largest brace is 2*99 pt (\simeq 69mm)
  13.  
  14. def drawpianobracket (expr height) =
  15.   u# := 1nhh#/5pt# * 1pt#;
  16.   v# := (height/40) * 1pt#;
  17.   define_pixels (u, v);
  18.   beginchar (height-firstbrace, 1.25nhh#, 0, 0);
  19.     z1 = origin;
  20.     z2 = (4.7u, 7v);
  21.     z3 = (3.6u, 16.5v);
  22.     z4 = (1.9u, 25v);
  23.     z5 = (2.28u, 32v);
  24.     z6 = (w, 40v);
  25.     penpos1 (max(1,0.1u), 125);
  26.     penpos2 (1.2u, 180);
  27.     penpos3 (3.2u, 195);
  28.     penpos4 (2.5u, 180);
  29.     penpos5 (1.14u, 180);
  30.     penpos6 (max(2,0.3u), 150);
  31.     penstroke z1e{dir 35}..z2e..z3e..z4e..z5e..{dir 60}z6e;
  32.     currenttransform := identity reflectedabout ((0,0),(1,0));
  33.     penstroke z1e{dir 35}..z2e..z3e..z4e..z5e..{dir 60}z6e;
  34.     currenttransform := identity;
  35.   endchar;
  36. enddef;
  37.  
  38. for v=firstbrace upto lastbrace :
  39.    drawpianobracket (v);
  40. endfor;
  41.